home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / Hack / UTILS / PASS.ZIP / PASS.ASM < prev    next >
Assembly Source File  |  1995-07-17  |  736b  |  60 lines
  1. ; PASS.COM
  2. ; Compile tasm pass.asm
  3. ;         tlink /t pass.obj
  4.  
  5. .286
  6. CODE SEGMENT
  7. ASSUME CS:CODE
  8. ORG 100H
  9. MAIN:
  10.    MOV   AL,37H
  11.    XOR   DI,DI
  12.    MOV   DX,71H
  13. E1:
  14.    OUT   70H,AL
  15.    INSB
  16.    INC   AL
  17.    CMP   AL,3EH
  18.    JB   E1
  19.    AND    BYTE PTR DS:[0000H],0F0H
  20.    XOR   DI,DI
  21.  
  22.  
  23. E0:
  24.    XOR   CX,CX
  25.    MOV   AL,DS:[DI]
  26.    MOV   AH,DS:[DI+1]
  27.  
  28.    CMP   AH,0
  29.    JE    KONIEC
  30.  
  31. DECOD:
  32.    TEST   AL,0C3H
  33.    JP   DALEJ
  34.    STC
  35. DALEJ:   RCR   AL,1
  36.    INC   CX
  37.    CMP   AL,AH
  38.    JNE   DECOD
  39.    CALL   WRITE
  40.  
  41.    INC   DI
  42.    CMP   DI,6
  43.    JB   E0
  44.  
  45.  
  46. KONIEC:   MOV   AX,4C00H
  47.    INT   21H
  48.  
  49.  
  50. WRITE PROC
  51.    MOV   AH,0EH
  52.    MOV   AL,CL
  53.    MOV   BX,0007H
  54.    INT   10H
  55. RET
  56. ENDP
  57.  
  58. CODE ENDS
  59. END MAIN
  60.